{	Problem: http://codeforces.ru/problemset/problem/18/C
	Verdict: Accepted
}
var i,n,r:longint; a,b:Array[1..100010] of int64;
begin
read(n);
for i:=1 to n do read(a[i]);
b[1]:=a[1];
for i:=2 to n do b[i]:=b[i-1]+a[i];
r:=0;
for i:=1 to n-1 do
  if b[i]=b[n]-b[i] then inc(r);
write(r);
end.
